#! /usr/bin/perl

use diagnostics;
use strict;

eval { die "oi"; };
if ($@) { print $@; }
